/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / Read Me, no me!

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 52 65 61 64 20 4d | 65 2c 20 6e 6f 20 6d 65 |..Read M|e, no me|
|00000010| 21 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |!.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 50 00 60 00 |.TEXTMPS| ...P.`.|
|00000050| 00 00 00 00 00 04 b0 00 | 00 01 7e a2 9e 20 e8 a2 |........|..~.. ..|
|00000060| 9e 20 e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |. ......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a7 3b 00 00 |........|.....;..|
|00000080| 77 69 74 68 20 69 6e 64 | 78 20 74 68 65 6e 20 73 |with ind|x then s|
|00000090| 68 72 69 6e 6b 20 6b 65 | 79 73 41 72 72 61 79 73 |hrink ke|ysArrays|
|000000a0| 2e 20 2a 29 0d 09 55 70 | 64 61 74 65 43 61 72 64 |. *)..Up|dateCard|
|000000b0| 4b 65 79 73 28 73 74 61 | 63 6b 5e 5e 2e 69 64 4b |Keys(sta|ck^^.idK|
|000000c0| 65 79 73 5e 2c 69 6e 64 | 78 2c 74 6f 74 46 69 6c |eys^,ind|x,totFil|
|000000d0| 29 3b 0d 09 55 70 64 61 | 74 65 43 61 72 64 4b 65 |);..Upda|teCardKe|
|000000e0| 79 73 28 73 74 61 63 6b | 5e 5e 2e 6e 61 6d 65 4b |ys(stack|^^.nameK|
|000000f0| 65 79 73 5e 2c 69 6e 64 | 78 2c 74 6f 74 46 69 6c |eys^,ind|x,totFil|
|00000100| 29 3b 0d 0d 09 28 2a 20 | 62 6c 6f 63 6b 6d 6f 76 |);...(* |blockmov|
|00000110| 65 20 6c 61 73 74 43 61 | 72 64 20 6f 76 65 72 20 |e lastCa|rd over |
|00000120| 74 61 72 67 65 74 20 2a | 29 0d 09 42 6c 6f 63 6b |target *|)..Block|
|00000130| 4d 6f 76 65 28 6c 61 73 | 74 2c 74 61 72 67 2c 56 |Move(las|t,targ,V|
|00000140| 41 4c 28 4c 4f 4e 47 49 | 4e 54 2c 73 74 61 63 6b |AL(LONGI|NT,stack|
|00000150| 5e 5e 2e 63 61 72 64 53 | 69 7a 65 29 29 3b 0d 09 |^^.cardS|ize));..|
|00000160| 0d 09 28 2a 20 72 65 6d | 6f 76 65 20 6c 61 73 74 |..(* rem|ove last|
|00000170| 43 61 72 64 20 61 6e 64 | 20 72 65 64 75 63 65 20 |Card and| reduce |
|00000180| 74 6f 74 46 69 6c 20 61 | 6e 64 20 6c 6f 63 61 6c |totFil a|nd local|
|00000190| 20 66 69 6c 6c 65 64 43 | 61 72 64 73 2e 20 2a 29 | filledC|ards. *)|
|000001a0| 0d 09 52 65 6d 6f 76 65 | 4c 61 73 74 43 61 72 64 |..Remove|LastCard|
|000001b0| 28 73 74 61 63 6b 29 3b | 0d 09 45 4e 44 20 52 65 |(stack);|..END Re|
|000001c0| 6d 6f 76 65 43 61 72 64 | 3b 0d 0d 0d 50 52 4f 43 |moveCard|;...PROC|
|000001d0| 45 44 55 52 45 20 47 65 | 74 43 61 72 64 49 6e 64 |EDURE Ge|tCardInd|
|000001e0| 78 28 73 74 61 63 6b 3a | 44 61 74 61 53 74 61 63 |x(stack:|DataStac|
|000001f0| 6b 3b 20 69 64 3a 4c 4f | 4e 47 43 41 52 44 3b 20 |k; id:LO|NGCARD; |
|00000200| 6e 61 6d 65 3a 41 52 52 | 41 59 20 4f 46 20 43 48 |name:ARR|AY OF CH|
|00000210| 41 52 29 3a 43 41 52 44 | 49 4e 41 4c 3b 0d 56 41 |AR):CARD|INAL;.VA|
|00000220| 52 20 6e 3a 43 41 52 44 | 49 4e 41 4c 3b 0d 42 45 |R n:CARD|INAL;.BE|
|00000230| 47 49 4e 0d 09 64 61 74 | 61 53 74 61 63 6b 45 72 |GIN..dat|aStackEr|
|00000240| 72 20 3a 3d 20 6e 6f 45 | 72 72 3b 0d 09 74 68 65 |r := noE|rr;..the|
|00000250| 53 74 61 63 6b 20 3a 3d | 20 73 74 61 63 6b 3b 0d |Stack :=| stack;.|
|00000260| 09 49 46 20 69 64 20 23 | 20 30 20 54 48 45 4e 0d |.IF id #| 0 THEN.|
|00000270| 09 09 74 68 65 53 65 61 | 72 63 68 49 44 20 3a 3d |..theSea|rchID :=|
|00000280| 20 69 64 3b 0d 09 09 6e | 20 3a 3d 20 53 65 61 72 | id;...n| := Sear|
|00000290| 63 68 53 74 61 63 6b 42 | 79 49 44 28 31 2c 73 74 |chStackB|yID(1,st|
|000002a0| 61 63 6b 5e 5e 2e 74 6f | 74 61 6c 46 69 6c 6c 65 |ack^^.to|talFille|
|000002b0| 64 29 3b 0d 09 09 49 46 | 20 6e 20 3d 20 30 20 54 |d);...IF| n = 0 T|
|000002c0| 48 45 4e 0d 09 09 09 64 | 61 74 61 53 74 61 63 6b |HEN....d|ataStack|
|000002d0| 45 72 72 20 3a 3d 20 6e | 6f 74 46 6f 75 6e 64 3b |Err := n|otFound;|
|000002e0| 0d 09 09 09 52 45 54 55 | 52 4e 20 30 3b 0d 09 09 |....RETU|RN 0;...|
|000002f0| 09 45 4e 44 3b 0d 09 09 | 52 45 54 55 52 4e 20 73 |.END;...|RETURN s|
|00000300| 74 61 63 6b 5e 5e 2e 69 | 64 4b 65 79 73 5e 5e 5b |tack^^.i|dKeys^^[|
|00000310| 6e 5d 3b 0d 09 09 0d 09 | 45 4c 53 49 46 20 6e 61 |n];.....|ELSIF na|
|00000320| 6d 65 5b 30 5d 20 23 20 | 30 43 20 54 48 45 4e 0d |me[0] # |0C THEN.|
|00000330| 09 09 74 68 65 53 65 61 | 72 63 68 4e 61 6d 65 20 |..theSea|rchName |
|00000340| 3a 3d 20 41 44 52 28 6e | 61 6d 65 29 3b 0d 09 09 |:= ADR(n|ame);...|
|00000350| 6e 20 3a 3d 20 53 65 61 | 72 63 68 53 74 61 63 6b |n := Sea|rchStack|
|00000360| 42 79 4e 61 6d 65 28 31 | 2c 73 74 61 63 6b 5e 5e |ByName(1|,stack^^|
|00000370| 2e 74 6f 74 61 6c 46 69 | 6c 6c 65 64 29 3b 0d 09 |.totalFi|lled);..|
|00000380| 09 49 46 20 6e 20 3d 20 | 30 20 54 48 45 4e 0d 09 |.IF n = |0 THEN..|
|00000390| 09 09 64 61 74 61 53 74 | 61 63 6b 45 72 72 20 3a |..dataSt|ackErr :|
|000003a0| 3d 20 6e 6f 74 46 6f 75 | 6e 64 3b 0d 09 09 09 52 |= notFou|nd;....R|
|000003b0| 45 54 55 52 4e 20 30 3b | 0d 09 09 09 45 4e 44 3b |ETURN 0;|....END;|
|000003c0| 0d 09 09 52 45 54 55 52 | 4e 20 73 74 61 63 6b 5e |...RETUR|N stack^|
|000003d0| 5e 2e 6e 61 6d 65 4b 65 | 79 73 5e 5e 5b 6e 5d 3b |^.nameKe|ys^^[n];|
|000003e0| 0d 09 09 45 4e 44 3b 0d | 09 64 61 74 61 53 74 61 |...END;.|.dataSta|
|000003f0| 63 6b 45 72 72 20 3a 3d | 20 6e 6f 74 46 6f 75 6e |ckErr :=| notFoun|
|00000400| 64 3b 0d 09 52 45 54 55 | 52 4e 20 30 3b 0d 09 45 |d;..RETU|RN 0;..E|
|00000410| 4e 44 20 47 65 74 43 61 | 72 64 49 6e 64 78 3b 0d |ND GetCa|rdIndx;.|
|00000420| 0d 50 52 4f 43 45 44 55 | 52 45 20 47 65 74 43 61 |.PROCEDU|RE GetCa|
|00000430| 72 64 49 44 28 73 74 61 | 63 6b 3a 44 61 74 61 53 |rdID(sta|ck:DataS|
|00000440| 74 61 63 6b 3b 20 69 6e | 64 78 3a 43 41 52 44 49 |tack; in|dx:CARDI|
|00000450| 4e 41 4c 3b 20 6e 61 6d | 65 3a 41 52 52 41 59 20 |NAL; nam|e:ARRAY |
|00000460| 4f 46 20 43 48 41 52 29 | 3a 4c 4f 4e 47 43 41 52 |OF CHAR)|:LONGCAR|
|00000470| 44 3b 20 0d 56 41 52 20 | 68 65 61 64 65 72 20 3a |D; .VAR |header :|
|00000480| 48 65 61 64 50 74 72 3b | 0d 42 45 47 49 4e 0d 09 |HeadPtr;|.BEGIN..|
|00000490| 64 61 74 61 53 74 61 63 | 6b 45 72 72 20 3a 3d 20 |dataStac|kErr := |
|000004a0| 6e 6f 45 72 72 3b 0d 09 | 49 46 20 69 6e 64 78 20 |noErr;..|IF indx |
|000004b0| 3d 20 30 20 54 48 45 4e | 0d 09 09 69 6e 64 78 20 |= 0 THEN|...indx |
|000004c0| 3a 3d 20 47 65 74 43 61 | 72 64 49 6e 64 78 28 73 |:= GetCa|rdIndx(s|
|000004d0| 74 61 63 6b 2c 30 2c 6e | 61 6d 65 29 3b 0d 09 09 |tack,0,n|ame);...|
|000004e0| 49 46 20 69 6e 64 78 20 | 3d 20 30 20 54 48 45 4e |IF indx |= 0 THEN|
|000004f0| 20 52 45 54 55 52 4e 20 | 30 3b 20 45 4e 44 3b 0d | RETURN |0; END;.|
|00000500| 09 09 45 4e 44 3b 0d 09 | 68 65 61 64 65 72 20 3a |..END;..|header :|
|00000510| 3d 20 47 65 74 48 65 61 | 64 65 72 41 64 64 72 28 |= GetHea|derAddr(|
|00000520| 73 74 61 63 6b 2c 69 6e | 64 78 29 3b 0d 09 49 46 |stack,in|dx);..IF|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 72 72 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 09 09 45 |rr := no|Err;...E|
|00000590| 4e 44 3b 0d 09 09 0d 09 | 28 2a 20 67 65 74 20 63 |ND;.....|(* get c|
|000005a0| 61 72 64 20 69 6e 64 65 | 78 20 2a 29 0d 09 49 46 |ard inde|x *)..IF|
|000005b0| 20 28 69 6e 64 78 20 3d | 20 30 29 20 41 4e 44 20 | (indx =| 0) AND |
|000005c0| 28 69 64 20 23 20 30 29 | 20 54 48 45 4e 0d 09 09 |(id # 0)| THEN...|
|000005d0| 69 6e 64 78 20 3a 3d 20 | 47 65 74 43 61 72 64 49 |indx := |GetCardI|
|000005e0| 6e 64 78 28 73 74 61 63 | 6b 2c 69 64 2c 22 22 29 |ndx(stac|k,id,"")|
|000005f0| 3b 0d 09 09 45 4e 44 3b | 0d 09 74 6f 74 46 69 6c |;...END;|..totFil|
|00000600| 20 3a 3d 20 73 74 61 63 | 6b 5e 5e 2e 74 6f 74 61 | := stac|k^^.tota|
|00000610| 6c 46 69 6c 6c 65 64 3b | 0d 09 49 46 20 28 69 6e |lFilled;|..IF (in|
|00000620| 64 78 20 3d 20 30 29 20 | 4f 52 20 28 69 6e 64 78 |dx = 0) |OR (indx|
|00000630| 20 3e 20 74 6f 74 46 69 | 6c 29 20 54 48 45 4e 0d | > totFi|l) THEN.|
|00000640| 09 09 64 61 74 61 53 74 | 61 63 6b 45 72 72 20 3a |..dataSt|ackErr :|
|00000650| 3d 20 6e 6f 74 46 6f 75 | 6e 64 3b 0d 09 09 52 45 |= notFou|nd;...RE|
|00000660| 54 55 52 4e 3b 0d 09 09 | 45 4e 44 3b 0d 09 0d 09 |TURN;...|END;....|
|00000670| 28 2a 20 67 65 74 20 74 | 61 72 67 65 74 20 61 6e |(* get t|arget an|
|00000680| 64 20 6c 61 73 74 43 61 | 72 64 20 61 64 64 72 65 |d lastCa|rd addre|
|00000690| 73 73 65 73 20 2a 29 0d | 09 74 61 72 67 20 3a 3d |sses *).|.targ :=|
|000006a0| 20 47 65 74 48 65 61 64 | 65 72 41 64 64 72 28 73 | GetHead|erAddr(s|
|000006b0| 74 61 63 6b 2c 69 6e 64 | 78 29 3b 0d 09 6c 61 73 |tack,ind|x);..las|
|000006c0| 74 20 3a 3d 20 47 65 74 | 48 65 61 64 65 72 41 64 |t := Get|HeaderAd|
|000006d0| 64 72 28 73 74 61 63 6b | 2c 74 6f 74 46 69 6c 29 |dr(stack|,totFil)|
|000006e0| 3b 0d 09 0d 09 28 2a 20 | 72 65 70 6c 61 63 65 20 |;....(* |replace |
|000006f0| 6c 61 73 74 43 61 72 64 | 20 6b 65 79 73 20 00 00 |lastCard| keys ..|
+--------+-------------------------+-------------------------+--------+--------+